home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Credits.amos / Credits.amosSourceCode
AMOS Source Code  |  1980-01-10  |  2KB  |  65 lines
  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8.  
  9. Break Off 
  10.  
  11. If Prg Under<>1 Then ERRS
  12.  
  13. Set Accessory : Rem  Program dla edytora 
  14.  
  15.  
  16. Call Editor 17 : Rem Pocz�tek programu  
  17. Call Editor 19 : Rem Raz [ENTER]
  18.  
  19.  
  20. For G=0 To 7
  21.    Trap Screen Close G : Rem Zamkni�cie wszystkich ekran�w
  22. Next 
  23.  
  24. Dim TEKST$(20) : Rem Za�o�enie tablicy tekstowej na 20 pozycji. 
  25. Restore DATY : Rem Kasowanie danych 
  26.  
  27. For A=1 To 20
  28.    Read A$ : Rem Odczyt danych z dat  
  29.    TEKST$(A)=A$
  30.    If A$="Kc" Then Exit 
  31. Next 
  32.  
  33. Call Editor 17
  34. Call Editor 5
  35.  
  36. For C=1 To 20
  37.    If TEKST$(C)="Kc" Then End 
  38.    Call Editor 71,C,TEKST$(C) : Rem WPISANIE LINI PROGRAMU 
  39.    Call Editor 2 : Rem Linia w D�l
  40.    Call Editor 11 : Rem Skok do pocz�tku lini
  41.    Call Editor 19 : Rem Raz [ENTER]
  42.    Call Editor 1 : Rem Linia w g�r� 
  43.    Call Editor 11 : Rem Skok do pocz�tku lini
  44. Next 
  45.  
  46.  
  47. Rem Dane 
  48.  
  49. DATY: Data "' ************************************************************"
  50. Data "' *                  DELTA OF CYBERTECH                      *"
  51. Data "' ************************************************************"
  52. Data "' *                                                          *"
  53. Data "' * This is the next program.                                *"
  54. Data "' *                                                          *"
  55. Data "' ************************************************************"
  56. Data "Kc"
  57.  
  58. Procedure ERRS
  59.    Default 
  60.    Flash Off : Curs Off : Hide : Paper 0 : Cls 0
  61.    Centre At(,10)+"This program is only for accesory"
  62.    Centre At(,12)+"Press any key"
  63.    Wait Key 
  64.    End 
  65. End Proc